un_model <- DT_pen_mcmc(penalty = i, starts_data = simulated$inter_persec,
states = 2, ant_file = simulated, chamber = "queen",
hours = 1, a = .005, b = .001, c = .005, d = .001,
tau = tau, tau.pen = 0, n_mcmc = n_mcmc, delta_t = 1,
start = start, data_out = paste("../data/", "sim_pen_MCMC", "-",
log(i), "-", n_mcmc, ".csv", sep = ""))